home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue53 / construc / WEBMOD.DFM < prev    next >
Encoding:
Text File  |  1999-12-06  |  2.3 KB  |  89 lines
  1. object WebModule1: TWebModule1
  2.   OldCreateOrder = False
  3.   Actions = <
  4.     item
  5.       Default = True
  6.       Name = 'WebActionItem1'
  7.       OnAction = WebModule1WebActionItem1Action
  8.     end
  9.     item
  10.       Name = 'WebActionItem2'
  11.       PathInfo = '/banner'
  12.       OnAction = WebModule1WebActionItem2Action
  13.     end
  14.     item
  15.       Name = 'WebActionItem3'
  16.       PathInfo = '/redirect'
  17.       OnAction = WebModule1WebActionItem3Action
  18.     end
  19.     item
  20.       Name = 'WebActionItem4'
  21.       PathInfo = '/login'
  22.       Producer = MidasPageProducer1
  23.     end
  24.     item
  25.       Name = 'WebActionItem5'
  26.       PathInfo = '/admin'
  27.       Producer = PageProducer1
  28.     end>
  29.   Left = 300
  30.   Top = 167
  31.   Height = 480
  32.   Width = 696
  33.   object MidasPageProducer1: TMidasPageProducer
  34.     HTMLDoc.Strings = (
  35.       '<HTML>'
  36.       '<HEAD>'
  37.       '</HEAD>'
  38.       '<BODY>'
  39.       '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
  40.       '</BODY>'
  41.       '</HTML>')
  42.     Left = 80
  43.     Top = 48
  44.     object QueryForm1: TQueryForm
  45.       Method = fmGet
  46.       object QueryFieldGroup1: TQueryFieldGroup
  47.         object QuerySelectOptions: TQuerySelectOptions
  48.           DisplayRows = -1
  49.           Caption = 'E-mail:'
  50.           CaptionAttributes.Custom = 'ALIGN=RIGHT'
  51.           Items.Strings = (
  52.             'drbob@chello.nl'
  53.             'ajansen@chello.nl'
  54.             'haki@tas.nl'
  55.             'msomers@tas.nl'
  56.             'dhenneman@tas.nl')
  57.         end
  58.         object QueryPassword: TQueryPassword
  59.           DisplayWidth = -1
  60.           Caption = 'Password:'
  61.           CaptionAttributes.Custom = 'ALIGN=RIGHT'
  62.         end
  63.         object QueryCheckbox: TQueryCheckbox
  64.           DisplayWidth = -1
  65.           Caption = 'E-mail Report?'
  66.           CaptionAttributes.Custom = 'ALIGN=RIGHT'
  67.         end
  68.       end
  69.       object QueryButtons1: TQueryButtons
  70.       end
  71.     end
  72.   end
  73.   object PageProducer1: TPageProducer
  74.     HTMLDoc.Strings = (
  75.       '<BODY BGCOLOR="FFFFCC">'
  76.       '<FONT FACE="Verdana"SIZE=2>'
  77.       '<H2>Dr.Bob'#39's Banner Ads</H2>'
  78.       '<HR>'
  79.       '<#REPORT>'
  80.       '<P>'
  81.       '<HR>'
  82.       '<FONT SIZE=1>'
  83.       'This page is producer for The Real Delphi Magazine, issue #53')
  84.     OnHTMLTag = PageProducer1HTMLTag
  85.     Left = 80
  86.     Top = 128
  87.   end
  88. end
  89.